home *** CD-ROM | disk | FTP | other *** search
/ Commodore Free 33R1 / Commodore_Free_Issue_33R1_2009_Commodore_Computer_Club.d64 / g tally list < prev    next >
Text File  |  2023-02-26  |  2KB  |  86 lines
  1. .
  2. Listing of: graphictally.prg
  3.  
  4. 10 REM .GRAPHICTALLY.
  5. 20 REM (C) JOHN FIELLDEN
  6. 30 GRAPHIC1,1
  7. 40 CHAR1,0,0," GRAPHIC TALLY "
  8. 50 CHAR1,0,1,"PROGRAM TO DEMONSTRATE
  9. TALLY MARKS"
  10. 100 DRAW 1,20,20 TO 20,35
  11. 110 CHAR1,4,10,"ONE MARK REPRESENTS:
  12. 1"
  13. 120 FORJ=1TO550:NEXTJ
  14. 130 DRAW 1,30,20 TO 30,35
  15. 140 CHAR1,4,11,"TWO MARKS REPRESENT:
  16. 2"
  17. 150 FORJ=1TO550:NEXTJ
  18. 160 DRAW 1,40,20 TO 40,35
  19. 170 CHAR1,4,12,"THREE MARKS
  20. REPRESENT: 3"
  21. 180 FORJ=1TO550:NEXTJ
  22. 190 DRAW 1,50,20 TO 50,35
  23. 200 CHAR1,4,13,"FOUR MARKS REPRESENT:
  24. 4"
  25. 210 FORJ=1TO550:NEXTJ
  26. 220 CHAR1,4,14,"WHAT YOU SEE NEXT IS
  27. SPECIAL"
  28. 230 FORJ=1TO650:NEXTJ
  29. 240 CHAR1,4,15,"PRESS A KEY"
  30. 250 GETA$:IFA$=""THEN250
  31. 260 DRAW 1,20,35 TO 50,20
  32. 270 CHAR1,4,16,"THE STRIKE-THROUGH
  33. COUNTS 5"
  34. 280 CHAR1,4,17,"THIS REPRESENTS ONE
  35. GROUP OF FIVE"
  36. 290 CHAR1,4,18,"AS THE COUNT GOES
  37. ON,"
  38. 300 CHAR1,4,19," MAKE MORE OF THESE"
  39. 310 CHAR1,4,20,"PRESS A KEY"
  40. 320 GETA$:IFA$=""THEN320
  41. 350 DRAW 1,70,20 TO 70,35
  42. 360 FORJ=1TO350:NEXTJ
  43. 370 DRAW 1,80,20 TO 80,35
  44. 380 FORJ=1TO350:NEXTJ
  45. 390 DRAW 1,90,20 TO 90,35
  46. 400 FORJ=1TO350:NEXTJ
  47. 410 DRAW 1,100,20 TO 100,35
  48. 420 FORJ=1TO350:NEXTJ
  49. 430 DRAW 1,70,35 TO 100,20
  50. 440 CHAR1,0,24," ANY KEY FOR MAIN
  51. SCREEN "
  52. 450 GETA$:IFA$=""THEN450
  53. 455 GRAPHIC0,0
  54. 460 SCNCLR: PRINT" GRAPHIC TALLY"
  55. 470 PRINT"{SHIFT-+}down{SHIFT--}{SHIFT-+}down{SHIFT--}{SHIFT-+}down{SHIFT--}{SHIFT-+}down{SHIFT--} IT
  56. IS EASY TO SEE 2 X 5 = 10."
  57. 480 PRINT" TWO GROUPS OF FIVE EQUALS
  58. TEN."
  59. 490 PRINT"{SHIFT-+}down{SHIFT--}{SHIFT-+}down{SHIFT--} YOU THEN SEE
  60. IF THERE IS A REMAINDER"
  61. 500 PRINT" AND ADD IT TO THE TOTAL."
  62. 510
  63. PRINT"{SHIFT-+}down{SHIFT--}{SHIFT-+}down{SHIFT--}{SHIFT-+}down{SHIFT--}{SHIFT-+}down{SHIFT--}{SHIFT-+}down{SHIFT--}{SHIFT-+}d
  64. own{SHIFT--} PRESS A KEY FOR DEMO."
  65. 520 REM GRAPHIC0,0
  66. 530 GETA$:IFA$=""THEN530
  67. 540 GRAPHIC1,0
  68. 550 FORT=14TO20
  69. 560 CHAR1,0,T," "
  70. 570 NEXTT
  71. 580 CHAR1,4,14,"THE STRIKE-THROUGH
  72. COUNTS 5"
  73. 600 DRAW 1,120,20 TO 120,35
  74. 610 FORJ=1TO300:NEXTJ
  75. 620 DRAW 1,130,20 TO 130,35
  76. 630 CHAR1,4,17,"THE TOTAL COUNT HERE
  77. IS TWELVE (12)"
  78. 1980 CHAR1,0,24," ANY KEY TO END
  79. PROGRAM "
  80. 1990 GETA$:IFA$=""THEN1990
  81. 2000 FORJ=1TO350:NEXTJ
  82. 2010 GRAPHIC0,1:GRAPHIC CLR
  83. 2020 IFA$=" "THENLIST
  84.  
  85. =====================================
  86.